home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / FADAL2S.M3 < prev    next >
Encoding:
Text File  |  1996-04-01  |  4.2 KB  |  162 lines
  1. name Fadal Format 2 with Sub Programs
  2.  
  3. % 00
  4. ! 00
  5. / 00
  6. O >4
  7. N >4
  8. G >2
  9. S >4
  10. H >2
  11. D >2
  12. M >2
  13. T >2
  14. R ->3.>4
  15. z ->3.>4 Z
  16. E >2
  17. X ->3.>4
  18. Y ->3.>4
  19. Z ->3.>4
  20. I ->3.>4
  21. J ->3.>4
  22. K ->3.>4
  23. F >4.>2
  24. Q ->3.>4
  25. P >4
  26. L >4
  27. ( 00
  28. d >3.>4
  29. e >3.>4
  30. f >3.>4
  31. * 00 ""
  32.  
  33. ModalLetters X Y Z F R                # List of letters that are modal
  34.  
  35. ModalGs 0 1 2 3 73 74 76 80 81 82 83 84 85  # List of g codes that are modal
  36.  
  37. Sequence#s N 0 1 1                    # Char, freq, incr & start
  38. First#? N                             # Y or N  'Output 1st sequence no.
  39. Last#? N                              # Y or N  'Output last sequence no.
  40.  
  41. HCode X                               # X or X U  'Horizontal char.
  42. VCode Y                               # Y or Y V  'Vertical char.
  43. Dcode Z                               # Depth char.
  44. FeedCode F                            # Feed rate char.
  45.  
  46. Comment ( )                           # Begin End comment char.
  47.  
  48. Spindle 3 4 5                         # Cw, ccw & stop m codes
  49. Coolant 8 9 7                         # On, Off & Mist m codes
  50. DComp 41 42 40                        # Left, Right & Cancel m codes
  51. LComp 43 49                           # On & Off codes
  52.  
  53. Feed G1                               # Linear move
  54. Rapid G0                              # Rapid positioning word
  55. Cw G2                                 # Circular move clockwise
  56. Ccw G3                                # Circular move counter clockwise
  57.  
  58. Inc/Abs G 91 90                       # Inc & Abs char. & values
  59.  
  60. CtrCode I J                           # I J or R or I J K L
  61. Helical? Y
  62. Spaces? Y                             # Y or N  'Spaces between words
  63.  
  64. Incremental? N                        # Y or N  'Inc or abs output
  65. CtrIncremental? Y                     # Y or N  'Inc or abs I & J
  66. ByQuadrants? N                        # Y or N  'Break arcs at quadrants
  67.  
  68. Subs1st? Y                            # Y or N 'Orders main & sub programs
  69.  
  70. UppercaseComments? Y                  # Y or N 'Require uppercase comments
  71.  
  72. WorkDefault 1                         # Work offset register default
  73.  
  74. Drill                                 # Drilling canned/manual cycle
  75. G81 G99 R[Vclear] z[D] F[FRate] X[H] Y[V]
  76. end cancel
  77.  
  78. Peck                                  # Pecking canned/manual cycle
  79. G83 G99 R[Vclear] z[D] F[FRate] Q[VBite] X[H] Y[V]
  80. end cancel
  81.  
  82. Tap                                   # Tapping canned/manual cycle
  83. G84 G99 R[Vclear] z[D] F[Frate] Q[VBite] X[H] Y[V]
  84. end cancel
  85.  
  86. LTap                                  # Left handed tapping cycle
  87. G74 G99 R[Vclear] z[D] F[Frate] Q[VBite] X[H] Y[V]
  88. end cancel
  89.  
  90. Ream                                  # Reaming canned/manual cycle
  91. G85 G99 R[Vclear] z[D] F[FRate] X[H] Y[V]
  92. end cancel
  93.  
  94. Bore                                  # Boring canned/manual cycle
  95. G86 G99 R[Vclear] z[D] F[FRate] X[H] Y[V]
  96. end cancel
  97.  
  98. Back                                  # Back boring canned/manual cycle
  99. G76 G99 R[Vclear] z[D] F[FRate] Q[Sclear] X[H] Y[V]
  100. end cancel
  101.  
  102. Cancel                                # Cancel a canned/manual cycle
  103. G80
  104. end
  105.  
  106. StartCode                             # Start of the program
  107. %0
  108. End
  109.  
  110. 1stToolChange                         # First tool change
  111. M6 T[Tool] (0 d[ToolRad] e[ToolDiam] f[corner]
  112. G0 G90 S[Speed] M[Direct] X[H] Y[V]
  113. H[Lcomp] M[Cool] Z[D]
  114. End
  115.  
  116. Infeed                                # Enable cutter comp
  117. G1 G[Side] X[H] Y[V] F[FRate]
  118. end
  119.  
  120. Outfeed                               # Disable cutter comp
  121. G40 X[H] Y[V]
  122. Z[D]
  123. end
  124.  
  125. ToolChange                            # Secondary tool changes
  126. M5 M9
  127. G0 G49 G90 Z0
  128. M6 T[Tool] (0 d[ToolRad] e[ToolDiam] f[corner]
  129. G0 G90 S[Speed] M[Direct] X[H] Y[V]
  130. H[Lcomp] M[Cool] Z[D]
  131. End
  132.  
  133. EndCode                               # End of the program
  134. M5 M9
  135. G0 G49 G90 Z0
  136. E0 X0 Y0
  137. M6 T[Tool1]
  138. M2
  139. %0
  140. End
  141.  
  142. Between                               # Between the main and sub programs
  143. !0 O[Program#]
  144. End
  145.  
  146. SubCall                               # Call a sub program
  147. E[Work] X[H] Y[V]
  148. M98 P[Sub] L[Times]
  149. End
  150.  
  151. SubStart                              # Start of the sub program
  152. O[Sub]
  153. End
  154.  
  155. SubEnd                                # End of the sub program
  156. M99
  157. End
  158.  
  159. replace "d" with "Tool Radius "
  160. replace "e" with "Diam "
  161. replace "f" with "Corner Rad. "
  162.